home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).adf
/
MaxiDAT_V2.50
/
MaxiSETUP
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-07-03
|
4KB
|
170 lines
WIDTH 70
CLS
COLOR 2,1
PRINT " --== MaxiDAT-Preferences ==-- "
COLOR 1,0
PRINT
PRINT
PRINT "Geben Sie bitte den Zugriffspfad zu den Daten ein !"
PRINT "(Default = 'DF0:MaxiDat/Daten/')"
LINE INPUT Pfad$
IF Pfad$ = "" THEN
Pfad$="DF0:MaxiDat/Daten/"
END IF
IF MID$(Pfad$,1,1) = ":" THEN
Pfad$="DF"+Pfad$
END IF
IF MID$(Pfad$,4,1) <> ":" THEN
Pfad$="DF0:"+Pfad$
END IF
IF RIGHT$(Pfad$,1) <> "/" AND RIGHT$(Pfad$,1) <> ":" THEN
Pfad$=Pfad$+"/"
END IF
LOCATE 6,1
COLOR 2,1
PRINT Pfad$
COLOR 1,0
LW$=LEFT$(Pfad$,4)
Pfad$=MID$(Pfad$,5)
PRINT
PRINT
PRINT "Welche Diskettenlaufwerke sollen im 'LAUFWERK WECHSELN'-"
PRINT "Requester erscheinen ?"
PRINT "(Default = 'DF0:' 'DF1:')"
LINE INPUT "1. Drive : ",Drive1$
IF Drive1$ = "" THEN
Drive1$="DF0:"
END IF
Drive1$=UCASE$(Drive1$)
IF RIGHT$(Drive1$,1) <> ":" THEN
Drive1$=Drive1$+":"
END IF
LOCATE 12,18
COLOR 2,1
PRINT Drive1$
COLOR 1,0
LINE INPUT "2. Drive : ",Drive2$
IF Drive2$ = "" THEN
Drive2$="DF1:"
END IF
Drive2$=UCASE$(Drive2$)
IF RIGHT$(Drive2$,1) <> ":" THEN
Drive2$=Drive2$+":"
END IF
LOCATE 13,18
COLOR 2,1
PRINT Drive2$
COLOR 1,0
PRINT
PRINT
PRINT "Bitte geben Sie die Bildschirmfarben ein. Jede Farbe besteht"
PRINT "aus drei Werten (für ROT/GRÜN/BLAU-Anteil) zwischen"
PRINT "0 und 1."
LOCATE 19,1
LINE INPUT " #0 (Hintergrund) [0.8/0.5/0.0] : ",RGB$
GOSUB WerteAuslesen:R(0)=R:G(0)=G:B(0)=B
IF R(0)=-1 OR G(0)=-1 OR B(0)=-1 THEN
R(0)=0.8:G(0)=0.5:B(0)=0
END IF
TEST R(0):TEST G(0):TEST B(0)
LOCATE 19,42
COLOR 2,1
PRINT R(0);G(0);B(0)
COLOR 1,0
LOCATE 20,1
LINE INPUT " #1 [0.9/0.9/0.9] : ",RGB$
GOSUB WerteAuslesen:R(1)=R:G(1)=G:B(1)=B
IF R(1)=-1 OR G(1)=-1 OR B(1)=-1 THEN
R(1)=0.9:G(1)=0.9:B(1)=0.9
END IF
TEST R(1):TEST G(1):TEST B(1)
LOCATE 20,42
COLOR 2,1
PRINT R(1);G(1);B(1)
COLOR 1,0
LOCATE 21,1
LINE INPUT " #2 [0.0/0.0/0.0] : ",RGB$
GOSUB WerteAuslesen:R(2)=R:G(2)=G:B(2)=B
IF R(2)=-1 OR G(2)=-1 OR B(2)=-1 THEN
R(2)=0:G(2)=0:B(2)=0
END IF
TEST R(2):TEST G(2):TEST B(2)
LOCATE 21,42
COLOR 2,1
PRINT R(2);G(2);B(2)
COLOR 1,0
LOCATE 22,1
LINE INPUT " #3 [1.0/1.0/0.1] : ",RGB$
GOSUB WerteAuslesen:R(3)=R:G(3)=G:B(3)=B
IF R(3)=-1 OR G(3)=-1 OR B(3)=-1 THEN
R(3)=1:G(3)=1:B(3)=0.1
END IF
TEST R(3):TEST G(3):TEST B(3)
LOCATE 22,42
COLOR 2,1
PRINT R(3);G(3);B(3);
COLOR 1,0
SOUND 800,10,255
PRINT :PRINT "Taste drücken ...";
WHILE INKEY$="":WEND
CLS
PRINT "Sollen diese Einstellungen abgespeichert werden (Filename:";
PRINT CHR$(34);Pfad$;"mConfig";CHR$(34);")"
INPUT "[J]a, [N]ein ";Jn$
Jn$=UCASE$(LEFT$(Jn$,1))
IF Jn$="J" THEN
CLS
PRINT "Bitte den Pfad zum MaxiDAT-Programm eingeben !"
PRINT
PRINT CHR$(34);"/mConfig";CHR$(34);"wird automatisch angefügt."
LINE INPUT "Filename = ",Dnam$
IF RIGHT$(Dnam$,1)<>":" AND RIGHT$(Dnam$,1)<>"/" THEN
Dnam$=Dnam$+"/mConfig"
ELSE
Dnam$=Dnam$+"mConfig"
END IF
OPEN Dnam$ FOR OUTPUT AS #1
PRINT #1,"Voreinstellungen für MaxiDAT"
PRINT #1,LW$
PRINT #1,Pfad$
PRINT #1,Drive1$
PRINT #1,Drive2$
FOR I=0 TO 3
PRINT #1,R(I)
PRINT #1,G(I)
PRINT #1,B(I)
NEXT I
CLOSE #1
PRINT
PRINT "Voreinstellungen sind abgespeichert."
ELSE
CLS
PRINT "Nichts passiert !!"
END IF
END
SUB TEST (arg) STATIC
IF arg>1 THEN
arg=1
END IF
IF arg<0 THEN
arg=0
END IF
END SUB
WerteAuslesen:
IF INSTR(RGB$,"/") THEN
strich=INSTR(RGB$,"/")
R=VAL(RGB$)
RGB$=MID$(RGB$,strich+1,100)
strich=INSTR(RGB$,"/")
G=VAL(RGB$)
RGB$=MID$(RGB$,strich+1,100)
B=VAL(RGB$)
ELSE
R=-1:G=-1:B=-1
END IF
RETURN